home *** CD-ROM | disk | FTP | other *** search
/ Spawn Figure Collection / spawn collection cd.iso / setup / data1.cab / Program_Executable_Files / Collection.dir / 00153_Ç‹ÇðǼåàǁÇÈåàíËÉ{É^Éì.ls < prev    next >
Encoding:
Text File  |  1998-01-19  |  2.5 KB  |  72 lines
  1. on mouseUp
  2.   global lseries, geditmode, gnowseries, gnowtitle, gnowgroup, gebitmap, geprotect, gegroup, gecheckbox, gecheck, gbitmap, gprotect, ggroup, gcheckbox, gcheck, gcomment, lsortedt, gedited
  3.   set gedited to 1
  4.   case geditmode of
  5.     1, 3:
  6.       if geditmode = 3 then
  7.         set gnowseries to gnowseries + 1
  8.       end if
  9.       addAt(lseries, gnowseries, birth(script "Series Script"))
  10.       set ls to getAt(lseries, gnowseries)
  11.       setseries(ls, the text of member "Series")
  12.       set lt to getAt(the ltitle of ls, 1)
  13.       settitle(lt, the text of member "Title")
  14.       set lg to getAt(the lgroup of lt, 1)
  15.       setgroup(lg, "0" & gegroup & "10", gebitmap, the text of member "Comment2")
  16.       set gnowtitle to 1
  17.       set gnowgroup to 1
  18.       set lsortedt to [:]
  19.       set gnowlistptr to 1
  20.       makesortlist()
  21.     2:
  22.       set ls to getAt(lseries, gnowseries)
  23.       setseries(ls, the text of member "Series")
  24.       set lsortedt to [:]
  25.       set gnowlistptr to 1
  26.       makesortlist()
  27.     4, 6:
  28.       if geditmode = 6 then
  29.         set gnowtitle to gnowtitle + 1
  30.       end if
  31.       set ls to getAt(lseries, gnowseries)
  32.       addAt(the ltitle of ls, gnowtitle, birth(script "Title Script"))
  33.       set lt to getAt(the ltitle of ls, gnowtitle)
  34.       settitle(lt, the text of member "Title")
  35.       set lg to getAt(the lgroup of lt, 1)
  36.       setgroup(lg, "0" & gegroup & "10", gebitmap, the text of member "Comment2")
  37.       set gnowgroup to 1
  38.       set lsortedt to [:]
  39.       set gnowlistptr to 1
  40.       makesortlist()
  41.     5:
  42.       set ls to getAt(lseries, gnowseries)
  43.       set lt to getAt(the ltitle of ls, gnowtitle)
  44.       settitle(lt, the text of member "Title")
  45.       set lsortedt to [:]
  46.       set gnowlistptr to 1
  47.       makesortlist()
  48.     7, 9:
  49.       set ls to getAt(lseries, gnowseries)
  50.       set lt to getAt(the ltitle of ls, gnowtitle)
  51.       if geditmode = 9 then
  52.         set gnowgroup to gnowgroup + 1
  53.       end if
  54.       addAt(the lgroup of lt, gnowgroup, birth(script "Group Script"))
  55.       set lg to getAt(the lgroup of lt, gnowgroup)
  56.       setgroup(lg, "0" & gegroup & "10", gebitmap, the text of member "Comment2")
  57.       set lsortedt to [:]
  58.       set gnowlistptr to 1
  59.       makesortlist()
  60.     8:
  61.       set ls to getAt(lseries, gnowseries)
  62.       set lt to getAt(the ltitle of ls, gnowtitle)
  63.       set lg to getAt(the lgroup of lt, gnowgroup)
  64.       setgroup(lg, "0" & gegroup & gecheckbox & gecheck, gebitmap, the text of member "Comment2")
  65.   end case
  66.   repeat with t = 1 to 6
  67.     set the puppet of sprite (t + 20) to 0
  68.   end repeat
  69.   set the puppet of sprite 3 to 0
  70.   go("Top")
  71. end
  72.